home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Developer's Kit 1996
/
Delphi Developer's Kit 1996.iso
/
power
/
source1
/
unit1.pas
< prev
Wrap
Pascal/Delphi Source File
|
1995-12-22
|
2KB
|
114 lines
unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, Bizcalc;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
Edit3: TEdit;
Label3: TLabel;
BizCalc1: TBizCalc;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure BizCalc1Result(Sender: TObject);
procedure BizCalc1Close(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
BizCalc1.Execute;
if BizCalc1.Active then
Edit3.Text := 'True'
else
Edit3.Text := 'False';
if BizCalc1.Visible then
Edit2.Text := 'True'
else
Edit2.Text := 'False';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
BizCalc1.Close;
if BizCalc1.Active then
Edit3.Text := 'True'
else
Edit3.Text := 'False';
if BizCalc1.Visible then
Edit2.Text := 'True'
else
Edit2.Text := 'False';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
BizCalc1.Show;
if BizCalc1.Active then
Edit3.Text := 'True'
else
Edit3.Text := 'False';
if BizCalc1.Visible then
Edit2.Text := 'True'
else
Edit2.Text := 'False';
Edit1.text := BizCalc1.Text;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
BizCalc1.Hide;
if BizCalc1.Active then
Edit3.Text := 'True'
else
Edit3.Text := 'False';
if BizCalc1.Visible then
Edit2.Text := 'True'
else
Edit2.Text := 'False';
Edit1.text := BizCalc1.Text;
end;
procedure TForm1.BizCalc1Result(Sender: TObject);
begin
Edit1.text := BizCalc1.Text;
end;
procedure TForm1.BizCalc1Close(Sender: TObject);
begin
if BizCalc1.Active then
Edit3.Text := 'True'
else
Edit3.Text := 'False';
if BizCalc1.Visible then
Edit2.Text := 'True'
else
Edit2.Text := 'False';
Edit1.text := BizCalc1.Text;
end;
end.